home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 November / MACPOWER-1997-11.ISO.7z / MACPOWER-1997-11.ISO / AMUG / MUSIC / bol-processor-271-data.sit / bol-processor-271-data / BP2 examples / BP2 data / -da.check& < prev    next >
Text File  |  1997-06-07  |  2KB  |  49 lines
  1. // Bol Processor version BP2.7.1
  2. // Data file saved as '-da.check&'. Date: Sam 7 Juin 1997 -- 22:29
  3. -se.check&
  4.  
  5. // Examples for checking sound-object concatenation
  6.  
  7. do3& re3 do3 mi3 &do3
  8. do3& re3& do3 mi3 &do3 &re3
  9. {do3 _ -,sol4&,mi5 _rest}{fa3 _,&sol4 -}
  10. {do3 _& -,sol4&,mi5 _rest}{fa3 _,- &sol4 -}&do3 _ _
  11. {1/4,sol#3&,do4,mi4,si4&} {2,&sol#3,&si4}
  12.  
  13. // We show the Csound score for this one
  14. {do3 _ _& mi5,sol4&,mi5 _rest}{mi5,&do3 _ _}{fa3 _,&sol4 -}
  15. t 0.000 60.000
  16. i1 0.000 1.000 10.04 90.000 90.000 0.000 0.000 0.000 0.000 ; mi5
  17. i1 3.000 1.000 10.04 90.000 90.000 0.000 0.000 0.000 0.000 ; mi5
  18. i1 0.000 5.000 8.00 90.000 90.000 0.000 0.000 0.000 0.000 ; do3
  19. i1 4.000 1.000 10.04 90.000 90.000 0.000 0.000 0.000 0.000 ; mi5
  20. i1 0.000 6.000 9.07 90.000 90.000 0.000 0.000 0.000 0.000 ; sol4
  21. i1 5.000 2.000 8.05 90.000 90.000 0.000 0.000 0.000 0.000 ; fa3
  22. s
  23.  
  24. // Now do3 is in more than two parts
  25. {do3& -,sol4,mi5 _rest}{&do3&,sol4} &do3 _ _
  26.  
  27. // Same thing. Below is the Csound score.
  28. {do3 _& -,sol4&,mi5 _rest}{&do3 _&,- &sol4 -}&do3 _ _
  29. t 0.000 60.000
  30. i1 0.000 1.000 10.04 90.000 90.000 0.000 0.000 0.000 0.000 ; mi5
  31. i1 0.000 4.333 9.07 90.000 90.000 0.000 0.000 0.000 0.000 ; sol4
  32. i1 0.000 8.000 8.00 90.000 90.000 0.000 0.000 0.000 0.000 ; do3
  33. s
  34.  
  35. // Here normally we shouldn't hear a portamento on sol4 but MIDI can't avoid it because
  36. // the two notes are one the same channel.  But Csound handles it properly.
  37. _pitchrange(200) _pitchbend(-200) _pitchcont do4 _ _ _&{&do4_ _ _&,sol4 }&do4_ _ _ _pitchbend(200)
  38. t 0.000 60.000
  39. i1 4.000 4.000 9.07 90.000 90.000 0.000 -66.667 -66.667 0.000 ; sol4
  40. i1 0.000 12.000 9.00 90.000 90.000 0.000 -200.000 200.000 0.000 ; do4s
  41.  
  42. // Same remark. Csound builds a function table for 'do4' and keeps G5's pitchbend at 66.6 cents
  43. _pitchrange(200) _pitchbend(-200) _pitchcont do4 _ _ _&{&do4_ _pitchbend(200)_ _&,sol4 }&do4_ _ _ _pitchbend(0)
  44. t 0.000 60.000
  45. i1 4.000 4.000 9.07 90.000 90.000 0.000 66.667 66.667 0.000 ; sol4
  46. f101 0.000 256 -7 -200.000 128 200.000 128 0.000
  47. i1 0.000 12.000 9.00 90.000 90.000 0.000 -200.000 0.000 101.000 ; do4
  48. s
  49.